ocr: ONothing.TDEFAULTUIEUU-DRA # file: Nothing.p # PRUCEDURE IDeraultview.urawcarea: Rect); OVERRIDE; # # VAR # tsQDExtent: Rect; # BEGIN 2 ebugstrt-stopped in TDefaultViem.Dram"9; 2 PenNormal; 2 PenSize(30, 30); 2 PenPat(dkGray); 2 GetQDExtentcitsQDExtent); We know its extent always fits in QuickDraw coordinates. ) Ze FramehectcitswUExtent), Draw a dark gray frame) (Set font and size for subsequent display in the window; 2 TextrontcApplFont); - lextsizesr2); 2 MoveTo(45, 90); 2 Traustring(tiochps, D Draw the word MacApp" in large type. - 2 PenNormal; F Restore the pen state. ) Z END;
